home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Timing / Assistant_100.lha / install < prev    next >
Encoding:
Text File  |  1993-08-21  |  1.6 KB  |  53 lines
  1. ; Install script for Assistant
  2.  
  3. ;Lets ask the user where he/she wants to install Assistant.
  4.  
  5.     (set destpath (askdir (prompt "Where do you want to install Assistant?\n\n"
  6.                                   "You can create a new drawer if you want."
  7.                           )
  8.                           (default @default-dest)
  9.                           (help @askdir-help)
  10.                   )
  11.     )
  12.  
  13.  
  14. ; Tell installer what drawer we selected.
  15.  
  16.     (set @default-dest destpath)
  17.  
  18.  
  19. ; We now know what to put where lets do some real work.
  20.  
  21.     (copyfiles (prompt "Copying files")
  22.                (help @copyfiles-help)
  23.                (source "Assistant/Assistant")
  24.                (infos)
  25.                (dest @default-dest)
  26.     )
  27.  
  28.     (copyfiles (prompt "Copying files")
  29.                (help @copyfiles-help)
  30.                (source "Assistant/Assistant.guide")
  31.                (dest @default-dest)
  32.     )
  33.  
  34.     (if (askbool (prompt "Do you want Assistant to automatically start from your WBStartup everytime you boot?\n\n"
  35.                  )
  36.                  (help @askchoice-help)
  37.         )
  38.         (
  39.          (copyfiles (prompt "Copying files")
  40.                     (help @copyfiles-help)
  41.                     (source "Assistant/As-start")
  42.                     (infos)
  43.                     (dest "SYS:WBStartup")
  44.          )
  45.          (tooltype (prompt "Setting default tool for start icon")
  46.                    (help @tooltype-help)
  47.                    (dest "SYS:WBStartup/As-start")
  48.                    (noposition)
  49.                    (setdefaulttool (tackon @default-dest "Assistant"))
  50.          )
  51.         )
  52.     )
  53.